program Pro;

uses
  Forms,
  SysUtils,
  Unit1 in '..\Code\Unit1.pas' {Form1},
  Encryption in '..\Code\Encryption.pas',
  Des in '..\Code\Des.pas';

procedure ShowPrintFm(); stdcall; 
var f:TForm1;
  begin
    f:=TForm1.Create(nil);
    try
      f.ReadParam(ParamStr(1));//'02892ECAE1B1591DCCFD479B3AD42DB8F18178' 
      f.ShowModal;
    finally
      FreeAndNil(f);
  end;
end;

{$R *.res}

begin
  Application.Initialize;
  ShowPrintFm();
  Application.Run;
end.
